home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / yatzys_1 / about.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-07-10  |  6.2 KB  |  192 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Title"
  5.    ClientHeight    =   2955
  6.    ClientLeft      =   1770
  7.    ClientTop       =   2460
  8.    ClientWidth     =   3735
  9.    Icon            =   "About.frx":0000
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    PaletteMode     =   1  'UseZOrder
  14.    ScaleHeight     =   197
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   249
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   1  'CenterOwner
  19.    Begin VB.Timer Timer1 
  20.       Interval        =   300
  21.       Left            =   120
  22.       Top             =   840
  23.    End
  24.    Begin VB.CommandButton cmdOK 
  25.       Cancel          =   -1  'True
  26.       Caption         =   "OK"
  27.       Default         =   -1  'True
  28.       Height          =   345
  29.       Left            =   1200
  30.       TabIndex        =   0
  31.       Top             =   2475
  32.       Width           =   1260
  33.    End
  34.    Begin VB.Image imgIcon 
  35.       Height          =   480
  36.       Left            =   120
  37.       Top             =   120
  38.       Width           =   480
  39.    End
  40.    Begin VB.Label lblWww 
  41.       Caption         =   "lblWww"
  42.       BeginProperty Font 
  43.          Name            =   "MS Sans Serif"
  44.          Size            =   8.25
  45.          Charset         =   0
  46.          Weight          =   400
  47.          Underline       =   -1  'True
  48.          Italic          =   0   'False
  49.          Strikethrough   =   0   'False
  50.       EndProperty
  51.       ForeColor       =   &H00FF0000&
  52.       Height          =   255
  53.       Left            =   840
  54.       TabIndex        =   7
  55.       Top             =   1440
  56.       Width           =   2325
  57.    End
  58.    Begin VB.Label lblSmtp 
  59.       Caption         =   "lblSmtp"
  60.       BeginProperty Font 
  61.          Name            =   "MS Sans Serif"
  62.          Size            =   8.25
  63.          Charset         =   0
  64.          Weight          =   400
  65.          Underline       =   -1  'True
  66.          Italic          =   0   'False
  67.          Strikethrough   =   0   'False
  68.       EndProperty
  69.       ForeColor       =   &H00FF0000&
  70.       Height          =   255
  71.       Left            =   840
  72.       TabIndex        =   6
  73.       Top             =   2040
  74.       Width           =   1950
  75.    End
  76.    Begin VB.Label lblComments 
  77.       Caption         =   "lblComments"
  78.       Height          =   255
  79.       Left            =   840
  80.       TabIndex        =   5
  81.       Top             =   1800
  82.       Width           =   2760
  83.    End
  84.    Begin VB.Label lblInfo 
  85.       Caption         =   "lblInfo"
  86.       Height          =   255
  87.       Left            =   840
  88.       TabIndex        =   4
  89.       Top             =   1200
  90.       Width           =   2760
  91.    End
  92.    Begin VB.Label lblDistribute 
  93.       Caption         =   "lblDistribute"
  94.       Height          =   255
  95.       Left            =   840
  96.       TabIndex        =   3
  97.       Top             =   720
  98.       Width           =   2760
  99.    End
  100.    Begin VB.Line Line1 
  101.       BorderColor     =   &H00808080&
  102.       BorderStyle     =   6  'Inside Solid
  103.       Index           =   1
  104.       X1              =   54
  105.       X2              =   230
  106.       Y1              =   71
  107.       Y2              =   71
  108.    End
  109.    Begin VB.Label lblTitle 
  110.       Caption         =   "lblTitle"
  111.       ForeColor       =   &H00000000&
  112.       Height          =   240
  113.       Left            =   840
  114.       TabIndex        =   1
  115.       Top             =   120
  116.       Width           =   2760
  117.    End
  118.    Begin VB.Line Line1 
  119.       BorderColor     =   &H00FFFFFF&
  120.       BorderWidth     =   2
  121.       Index           =   0
  122.       X1              =   54
  123.       X2              =   230
  124.       Y1              =   72
  125.       Y2              =   72
  126.    End
  127.    Begin VB.Label lblCopyright 
  128.       Caption         =   "lblCopyright"
  129.       Height          =   225
  130.       Left            =   840
  131.       TabIndex        =   2
  132.       Top             =   480
  133.       Width           =   2760
  134.    End
  135. Attribute VB_Name = "frmAbout"
  136. Attribute VB_GlobalNameSpace = False
  137. Attribute VB_Creatable = False
  138. Attribute VB_PredeclaredId = True
  139. Attribute VB_Exposed = False
  140. Option Explicit
  141. Private Const TEXT_COPYRIGHT As String = "Copyright 
  142.  1998, Anders Fransson."
  143. Private Const TEXT_DISTRIBUTE As String = "Freely distributed. All rights reserved."
  144. Private Const TEXT_INFO As String = "For further information:"
  145. Private Const TEXT_WWW As String = "http://hem1.passagen.se/fylke/"
  146. Private Const TEXT_COMMENTS As String = "Send questions and comments to:"
  147. Private Const TEXT_SMTP As String = "anders.fransson@home.se"
  148. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  149.     (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  150.     ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  151. Public Sub ShowAboutForm(strTitle As String, Optional vntIcon As Variant)
  152.     lblTitle = strTitle & " Version " & App.Major & "." & App.Minor & "." & App.Revision
  153.     lblCopyright = TEXT_COPYRIGHT
  154.     lblDistribute = TEXT_DISTRIBUTE
  155.     lblInfo = TEXT_INFO
  156.     lblWww = TEXT_WWW
  157.     lblComments = TEXT_COMMENTS
  158.     lblSmtp = TEXT_SMTP
  159.     Me.Caption = strTitle
  160.     If Not IsMissing(vntIcon) Then
  161.         imgIcon = vntIcon
  162.     End If
  163.     Me.Show vbModal
  164. End Sub
  165. Private Sub cmdOK_Click()
  166.     Unload Me
  167. End Sub
  168. Private Sub lblWww_click()
  169.     ShellExecute 0, "Open", TEXT_WWW, "", "", vbNormalFocus
  170. End Sub
  171. Private Sub lblWww_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  172.     lblWww.ForeColor = vbRed
  173. End Sub
  174. Private Sub lblWww_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  175.     lblWww.ForeColor = vbBlue
  176. End Sub
  177. Private Sub lblSmtp_click()
  178.     ShellExecute 0, "Open", "mailto:" & TEXT_SMTP, "", "", vbNormalFocus
  179. End Sub
  180. Private Sub lblSmtp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  181.     lblSmtp.ForeColor = vbRed
  182. End Sub
  183. Private Sub lblSmtp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  184.     lblSmtp.ForeColor = vbBlue
  185. End Sub
  186. Private Sub Timer1_Timer()
  187.     Static i%
  188.     i = i + 1
  189.     imgIcon = frmYatzy.imgNumber(i)
  190.     If i = 5 Then i = -1
  191. End Sub
  192.